inherited FRM_PesquisaExcipiente: TFRM_PesquisaExcipiente
  Left = 275
  Top = 213
  ClientHeight = 390
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    Height = 390
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Top = 80
      Height = 270
      TitleRowHeight = 19
      Columns = <
        item
          Expanded = False
          FieldName = 'PRODUTO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o dos Excipientes'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Segoe UI'
          Title.Font.Style = []
          Width = 314
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PERC_DESCTO_VOLUME'
          Title.Alignment = taCenter
          Title.Caption = '(%) Descto Vol.'
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = 'Segoe UI'
          Title.Font.Style = []
          Width = 90
          Visible = True
        end>
    end
    inherited pnlRodape: TPanel
      Top = 363
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Excipientes'
    end
    object Panel1: TPanel
      Left = 3
      Top = 350
      Width = 418
      Height = 13
      Align = alBottom
      AutoSize = True
      BevelOuter = bvNone
      Color = clWhite
      TabOrder = 4
      object lblForma: TLabel
        Left = 0
        Top = 0
        Width = 108
        Height = 13
        Caption = 'Forma Farmac'#234'utica: '
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'Segoe UI'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
    end
  end
  inherited sqlPesquisar: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_forma'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    a.cod_excipiente,'
      '    a.lig_cod_produto,'
      '    a.perc_descto_volume,'
      '    b.descricao ||'#39'/'#39'|| b.apresentacao as produto'
      'from f_excipiente a'
      'left join produto b on (b.cod_produto = a.lig_cod_produto)'
      'where a.lig_cod_forma = :cod_forma and a.situacao = '#39'True'#39
      'order by b.descricao')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_EXCIPIENTE: TIntegerField
      FieldName = 'COD_EXCIPIENTE'
      Required = True
    end
    object cdsPesquisarLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsPesquisarPERC_DESCTO_VOLUME: TFMTBCDField
      FieldName = 'PERC_DESCTO_VOLUME'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsPesquisarPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 201
    end
  end
end
